1 PRINTCHR$(14)"[147][154]  [196]IRECTORY-[196]RUCK    ADAPTED BY [204][213][203][201][193][206]  ":FORT=1TO750:NEXT
3 POKE768,61:OPEN1,4:PRINT#1:CLOSE1:POKE768,139:IFST=-128THENPRINT"      [196][210][213][195][203][197][210] [206][201][195][200][212] [197][201][206][199][197][211][195][200][193][204][212][197][212]!      ":END
5 POKE53280,.:POKE53281,.:PRINTCHR$(14)CHR$(147):OPEN4,4:PRINT#4,CHR$(27);CHR$(64);:    :PRINT#4,CHR$(27);CHR$(93);CHR$(49);:   :
7 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";:PRINT"[221]                                      [221]";:PRINT"[221]     [196][160][201][160][210][160][197][160][195][160][212][160][207][160][210][160][217][160]- [196][160][210][160][213][160][195][160][203]    [221]";:PRINT"[221][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221]";:PRINT"[221][129]   IN DREI [211]PALTEN UND [205]ICROSCHRIFT   [221]";
9 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";:PRINT"[146][218]EICHEN MIT [211][200][201][198][212] WERDEN";
10 PRINT" [199][210][207][211][211] - MIT [195][194][205]      ALS [199][210][193][198][201][203]-[218]EICHEN GEDRUCKT.       ":PRINT"[158]";
11 PRINT"           [196]ISKETTE EINLEGEN!           ":POKE646,F:PRINTTAB(40)"[146][151][164][164][164][164][164][164][164][164][164][164][164][154][164][164][164][151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][154][164][164][164][151][164][164]";:PRINT"[152][146][181] [196]RUCKEN: [154][165][196][167][146][152] [182][182][182][182] [181][181][181][181][181] [194]EENDEN: [154][165][197][167][146][152] [182]";:PRINT"[151][163][163][163][163][163][163][163][163][163][163][163][154][163][163][163][151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][154][163][163][163][151][163][163]";:WAIT197,63
13 GETC$:IFC$=CHR$(68)THENPOKE53280,2:GOTO19
15 IFC$=CHR$(69)THENPRINT"[147]":END
17 GOTO13
19 DIMF$(152):DIMG$(152):PRINTCHR$(147)CHR$(154)CHR$(142):OPEN9,8,0,"$":PRINT"[150]  DIRECTORY WIRD EINGELESEN...      [155]":GET#9,A$,B$:N0=0:POKE53281,2
21 GET#9,A$,B$:Z0=0:X$="":IFST<>0THEN33
23 GET#9,A$,B$:N$=CHR$(0):G$=RIGHT$("      "+STR$(ASC(A$+N$)+ASC(B$+N$)*256),6)
25 GET#9,A$:IFA$=CHR$(34)THENZ0=SGN(Z0+1)
27 IFA$=""THENN0=N0+1:N1=N0-1:GOSUB35:GOTO21
29 IFZ0=1THENG$=G$+A$
31 GOTO25
33 S=54272:POKES+24,15:POKES+4,32:POKES+5,9:POKES+6,242:POKES+4,81:CLOSE9:FORI=1TO11:PRINT"[147][129]>       WEITER MIT [167][163][163][163]SPACE[163][163][163][146][165]       <":POKES+1,1+RND(1)*I:NEXT:WAIT197,63:POKE53280,5:POKES+4,0 :GOTO49
35 IFN0=1THEN45
37 IFLEN(G$)=6THEN47
39 AA$="":FORI=8TO24:C$=MID$(G$,I,1):IFC$=CHR$(34)THENI=24:GOTO43
41 AA$=AA$+C$
43 NEXTI:G$(N1)=LEFT$(AA$+"                  ",18)+LEFT$(G$,6)+"     "+ID$:H1$=MID$(G$(N1),22,3):H2$=LEFT$(G$(N1),16):H$=H1$+" "+H2$+" "+MID$(G$,26,3):PRINT"       "H$:A=A+1:F$(A)=H$:PRINTCHR$(142);:RETURN
45 CC$=RIGHT$(G$,24):ID$=MID$(CC$,20,5):PRINT"       ";CC$:RETURN:PRINT:
47 PRINT"    ";G$;" BLOECKE FREI.":CC$=CC$+G$+" BLOECKE FREI.  "+DA$:RETURN
49 PRINT"[147][159]     DIRECTORY WIRD GEDRUCKT...";:POKE53281,5:OPEN1,4,7:PRINT#1,CHR$(27)CHR$(93)CHR$(49):PRINT#1,CHR$(27)CHR$(82)CHR$(0):PRINT#1:CMD1:PRINTCHR$(27)CHR$(15);:PRINTCHR$(27)"S"CHR$(0);:PRINT#1,CHR$(27)"A"CHR$(5);" NAME: ";MID$(CC$,2,16);:PRINT#1,"  ID:      ";ID$;:PRINT#1,"      "MID$(CC$,28,16)
51 PRINT#1,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:PRINT#1,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":IFA/3<>INT(A/3)ANDA-3*INT(A/3)=2THENA=A+3:GOTO55
53 IFA/3<>INT(A/3)ANDA-3*INT(A/3)=1THENA=A+3:GOTO55
55 FORX=1TOINT(A/3):PRINT#1," "F$(X);"   ";:PRINT#1,F$(X+INT(A/3));"   ";:PRINT#1,F$(X+2*INT(A/3)):NEXT:GOTO57:PRINT#1,MID$(CC$,28,16)
57 CLOSE1:FORI=1TO1STEP.1:S=54272:POKES+24,15:POKES+4,80:POKES+5,9:POKES+6,139:POKES+1,2+RND(1)*I:POKES+4,33 :PRINT"[147][152]NEUE DISK?  <J/N>";:NEXTI:WAIT197,63:POKES+4,0
59 GETA$:IFA$<>"J"ANDA$<>"N"THEN59
61 IFA$="J"THENRUN
63 IFA$="N"THENPOKE53280,6:POKE53281,14:POKE646,1:PRINT"[147] TSCHUESS!":FORT=1TO999:NEXT:SYS2048